|
|  Captive Queens
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Captive Queens"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH  3 * CW
  HEIGHT 4 * CH
  ZeroToWin 52 - CARDSIN$2

| Four corners foundations starting with 6

  FOR row = 0 TO 1
    FOR column = 0 TO 1
      FOUNDATION
        X 2 * column * CW
        Y 2 * row    * CH
        FIRST 6
        MAX 6
        ID 2
      END
    END
  END

| Four foundations starting with 5

  FOUNDATION
    X CW
    Y 0
    FIRST 5
    MAX 6
    JOINOFFSET -1
    FLAGS RotateJoin
    ID 2
  END

  FOR column = 0 TO 1
    FOUNDATION
      X 2 * column * CW
      Y CH
      FIRST 5
      MAX 6
      JOINOFFSET -1
      FLAGS RotateJoin
      ID 2
    END
  END

  FOUNDATION
    X CW
    Y 2 * CH
    FIRST 5
    MAX 6
    JOINOFFSET -1
    FLAGS RotateJoin
    ID 2
  END

| Captive queens foundation

  FOUNDATION
    X CW
    Y CH
    FIRST 12
    MAX 4
    JOINOFFSET 0
    FLAGS Join____
    ID 2
  END

| Stock

  STACK
    X CW / 2
    Y 3 * CH
    DEAL 51
    DEALTO 4,1
    TAKEFROM 4,2
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Wastepile

  STACK
    X CW / 2 + CW
    Y 3 * CH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
